home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 601 / envirnmt / showenvr.gfa (.txt) < prev   
GFA-BASIC Atari  |  1991-02-25  |  688b  |  19 lines
  1. ~SHEL_ENVRN(a%,"PATH=")
  2. center("**** Komplettes Environment per SHEL_ENVRN ****")
  3. PRINT "PATH=";
  4. WHILE BYTE{a%}
  5.   a$=CHAR{a%}
  6.   PRINT a$
  7.   ADD a%,LEN(a$)+1
  8. WEND
  9. center("-----------------------------------------------------------------------------")
  10. ~SCRP_READ(a$)
  11. center(" ScrapDir: >"+a$+"<")
  12. center("-----------------------------------------------------------------------------")
  13. center("Taste...")
  14. ~INP(2)
  15. ' SYSTEM
  16. > PROCEDURE center(string$)
  17.   PRINT AT(((81-LEN(string$))/2),CRSLIN);string$
  18. RETURN
  19.